home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 07 - 1991 / 07.04 Apr 91 / XCMD Apr Code < prev   
Encoding:
Text File  |  1991-02-21  |  9.2 KB  |  433 lines  |  [TEXT/nX^n]
  1. /************************************/
  2. /* A sample XCMD for Hypercard    */
  3. /* 2.0 that displays and handles    */
  4. /* external windows and dialogs.    */
  5. /*                        */
  6. /* Well-behaved XCMDs for HC2.0    */
  7. /* will respond to the ! and ?    */
  8. /* requests by returning version*/
  9. /* and usage information         */
  10. /* respectively.                */
  11. /*                        */
  12. /* ----------------------------    */
  13. /* ©1991, Donald Koscheka        */
  14. /* All Rights Reserved            */
  15. /************************************/
  16.  
  17. /*
  18.     Project:
  19.  
  20.         MacTraps
  21.         HyperXLib-- Hypercard 2.0 callback library available from 
  22.                 Apple Computer, Inc.
  23.                 
  24.         xwindoid.c (contents of listing 1)
  25.  
  26.     Set Project Type:
  27.         Type == XCMD | XFCN
  28.         Name == xwindoid
  29.         id     == -32768..32767
  30.         
  31.     Usage
  32.     
  33.         xwindoid "?"    -- XCMD 
  34.         xwindoid "!"
  35.         put the result
  36.         
  37.         OR              -- XFCN
  38.             
  39.         Put xwindoid( "?" )
  40.         Put xwindoid( "!" )
  41.         
  42.      Parameters:
  43.     
  44.         xwindoid "name", rect, style, dlgID
  45.         
  46.         name == the name of the window
  47.         rect == the rect of the window
  48.         style== dBoxProc, documentProc, palette, …
  49.         dlgID== dialog id( modal dialogs only).
  50. */
  51.  
  52. #include    <SetUpA4.h>
  53. #include    <string.h>
  54. #include    <HyperXCMD.h>
  55.  
  56. #ifndef    NIL
  57.     #define NIL    (void *)0L
  58. #endif
  59.  
  60. #define        ETX            0x03    
  61. #define        BS            0x08        
  62. #define        TAB            0x09
  63. #define        LF            0x0A
  64. #define        NEWLINE        0x0D
  65. #define        CR            0x0D
  66. #define        LEFT_ARROW        0x1C
  67. #define        RIGHT_ARROW        0x1D
  68. #define        UP_ARROW        0x1E
  69. #define        DOWN_ARROW        0x1F
  70.  
  71. /* Multifinder events and masks    */
  72. #ifndef    MouseMovedEvt
  73.     #define    MouseMovedEvt    0xFA    
  74. #endif
  75.  
  76. #ifndef    SuspendResumeEvt
  77.     #define    SuspendResumeEvt    0x01
  78. #endif
  79.  
  80. #ifndef    ResumeEvtMask
  81.     #define    ResumeEvtMask    0x01
  82. #endif
  83.  
  84. #ifndef    ConvertScrapMask
  85.     #define    ConvertScrapMask    0x02    
  86. #endif
  87.  
  88. #define    palette        0x80
  89.  
  90. pascal void HandleHCEvent( XCmdPtr    pp );
  91. pascal Boolean    modalFilter( DialogPtr dlg, EventRecord *evt, short *itemhit );
  92.  
  93. void    CenterWindow( WindowPtr    wptr, short isFront )
  94. /***************************
  95. * Center a window in the current
  96. * screen port.  Note: Does not
  97. * attempt to work with multi-screen
  98. * systems.
  99. *
  100. * This code is courtesy of Steve
  101. * Maller of Apple Computer Inc.
  102. * Thanks Steve.
  103. ***************************/
  104. {
  105.  short     hWindSize = wptr->portRect.right - wptr->portRect.left;
  106.  short    vWindSize = wptr->portRect.bottom - wptr->portRect.top;
  107.  short    hSize = wptr->portBits.bounds.right - wptr->portBits.bounds.left;
  108.  short    vSize = wptr->portBits.bounds.bottom - wptr->portBits.bounds.top;
  109.  
  110.  MoveWindow( wptr,     
  111.              ( hSize - hWindSize ) / 2, 
  112.              ( vSize - vWindSize + 20) / 2,
  113.             isFront
  114.         );
  115. }
  116.  
  117. void Concat( char    *str1, char    *str2 )
  118. /*****************************
  119. * Append string 2 to the end of
  120. * string 1.  Both strings are 
  121. * pascal-format strings.
  122. *
  123. * str1 must be large enough to hold
  124. * the new string and is assumed to 
  125. * be of Type Str255 (a pascal string)
  126. *****************************/
  127. {
  128.     BlockMove( str2 + 1, str1 + str1[0] + 1, (long)str2[0]);
  129.     str1[0] += str2[0];
  130. }
  131.  
  132. pascal void main( XCmdPtr    pp )
  133. /**************************************
  134. * MAIN ENTRYP POINT FOR THIS XCMD
  135. * 
  136. * params[0]    = the name of the window
  137. * params[1]    = the rect of the window (left,top,right,bottom)
  138. * params[2]    = the window style (dBoxProc, documentProc, palette)
  139. **************************************/
  140. {
  141.     Handle        answer    = NIL;
  142.     char        *str;
  143.     long        len;
  144.     WindowPtr    wind;
  145.     TEHandle    hTE;
  146.     Rect        bounds;
  147.     short        style        = documentProc;
  148.     char        title[32];
  149.     char        temp[64];        /* no need to hog the stack here */
  150.     long        dlgID         = 0;
  151.     
  152.     pp->returnValue = NIL;
  153.  
  154.     if( pp->paramCount < 0 ){    /* Have an event for one of our windows */
  155.         HandleHCEvent( pp );
  156.         return;
  157.     }
  158.     
  159.     if (pp->paramCount == 1){
  160.         if ( **(pp->params[0]) == '!' ){
  161.             pp->returnValue = PASTOZERO(pp,"\pxwindoid XCMD, version 1.1, ©1991, Donald Koscheka");
  162.             return;
  163.         }
  164.         
  165.         if ( **(pp->params[0]) == '?' ){
  166.             pp->returnValue = PASTOZERO(pp,"\pxwindoid name,rect,style");
  167.             return;
  168.         }
  169.     }
  170.     
  171.     /* if we get this far, the caller must be creating a new window */
  172.     title[0] = 0;    /* the default name */
  173.     Concat( title, "\pUntitled");
  174.     if( pp->params[0] ){
  175.         HLock( pp->params[0] );
  176.         ZEROTOPAS( pp, *(pp->params[0]), &title );
  177.         HUnlock( pp->params[0] );
  178.     }
  179.     
  180.     /* the default rectangle if one not specified */
  181.     bounds.top = bounds.left = 0;
  182.     bounds.bottom = 200;
  183.     bounds.right = 300;
  184.     if( pp->params[1] ){
  185.         HLock( pp->params[1] );
  186.         ZEROTOPAS( pp, *(pp->params[1]), &temp );
  187.         STRTORECT( pp, temp, &bounds );
  188.         HUnlock( pp->params[1] );
  189.     }
  190.     
  191.     if( pp->params[2] ){
  192.         HLock( pp->params[2] );
  193.         ZEROTOPAS( pp, *(pp->params[2]), &temp );
  194.         
  195.         /* the poor man's parser */
  196.         if( STRINGEQUAL( pp, temp, "\pDOCUMENTPROC" )) style = documentProc;
  197.         if( STRINGEQUAL( pp, temp, "\pDBOXPROC" )) style = dBoxProc;
  198.         if( STRINGEQUAL( pp, temp, "\pPALETTE" )) style = palette;
  199.         HUnlock( pp->params[2] );
  200.     }
  201.     
  202.     /* these callback will bomb if window is not valid */
  203.     XWALWAYSMOVEHIGH( pp, wind, TRUE );    
  204.     XWHASINTERRUPTCODE( pp, wind, TRUE );
  205.  
  206.     if( style == dBoxProc ){
  207.         GrafPtr    oldPort;
  208.         short    itemHit;
  209.         Handle    items;
  210.         
  211.         if( pp->params[3] ){
  212.             HLock( pp->params[3] );
  213.             ZEROTOPAS( pp, *(pp->params[3]), &temp );
  214.             dlgID = STRTONUM( pp, temp );
  215.             HUnlock( pp->params[3] );
  216.         }
  217.         
  218.         items = GetResource( 'DITL', dlgID );
  219.         DetachResource( items ); 
  220.         wind = NewDialog( NIL, &bounds, title, FALSE, dBoxProc,-1L,FALSE,0L, items );
  221.         CenterWindow( wind, TRUE );
  222.         GetPort( &oldPort );
  223.         SetPort( wind );
  224.         ShowWindow( wind );
  225.         
  226.         do{
  227.             ModalDialog( modalFilter, &itemHit );
  228.         }while( itemHit != OK );
  229.         
  230.         HideWindow( wind );
  231.         DisposDialog( wind );
  232.         SetPort( oldPort );
  233.     }
  234.     else{
  235.         wind = NEWXWINDOW( pp, &bounds, title, FALSE, style, 
  236.                                 FALSE, style==palette);
  237.         CenterWindow( wind, TRUE );
  238.     }
  239. }
  240.  
  241. pascal Boolean    modalFilter( DialogPtr dlg, EventRecord *evt, short *itemhit )
  242. /************************************
  243. * general filter proc, accepts return and
  244. * enter as ok and hilites the ok button.
  245. *
  246. * the ok button is always item 1.
  247. *
  248. * Notice that ModalDialog always accesses
  249. * this routine via a pointer.  If your
  250. * code implemented modalDialog in HandleHCEvent
  251. * then you will need to make sure that
  252. * XWHasInterrupt is set to true.
  253. ************************************/
  254. {
  255.     int                thenum;
  256.     Handle            theitem;
  257.     Rect            thebox;
  258.     char            cc;
  259.     
  260.     short            iTyp;
  261.     Handle            iHdl;
  262.     Rect            iBox;
  263.     ControlHandle    okbutn;
  264.     
  265.     switch( evt->what ){
  266.         case    keyDown:
  267.             cc = (char)evt->message & charCodeMask;
  268.             GetDItem( dlg, OK, &iTyp, &okbutn, &iBox);
  269.             if( (*okbutn)->contrlHilite != 255 ){
  270.                 SetCtlValue( okbutn, 1 );
  271.                 if(cc == CR || cc == ETX ){
  272.                     *itemhit = OK;
  273.                     return TRUE;
  274.                 }
  275.             }
  276.             break;
  277.             
  278.         case updateEvt:
  279.             GetDItem( dlg, OK, &iTyp, &okbutn, &iBox);
  280.             if( (*okbutn)->contrlHilite != 255 ){
  281.                 PenSize(3,3);
  282.                 InsetRect(&iBox,-4,-4);
  283.                 FrameRoundRect(&iBox,16,16);
  284.                 PenNormal();
  285.             }    
  286.             break;
  287.     }/* event switch */
  288.  
  289.     return    FALSE;
  290. }
  291.  
  292. pascal void HandleHCEvent( XCmdPtr    pp )
  293. /**********************************
  294. * Handle events in our xWindows    
  295. * returns true if the event was handled ok
  296. *
  297. **********************************/
  298. {
  299.     XWEventInfoPtr    ip    = pp->params[0];
  300.     WindowPtr        whichWindow;
  301.     short            windoPart;
  302.     TEHandle        hTE;
  303.     Rect            bounds;
  304.     Point            hit;
  305.     char            theKey;
  306.     GrafPtr            oldPort;
  307.     short            extend;
  308.     
  309.     pp->passFlag = TRUE;    /* seems to be more often the case */
  310.     
  311.     switch( ip->event.what ){
  312.     case mouseDown:
  313.         windoPart = FindWindow( ip->event.where, &whichWindow );
  314.             
  315.         if( whichWindow )
  316.             switch ( windoPart ){
  317.                 case inGoAway:
  318.                     if (TrackGoAway( whichWindow, ip->event.where) ){
  319.                         CLOSEXWINDOW( pp,whichWindow );
  320.                         pp->passFlag = FALSE;
  321.                     }
  322.                     break;
  323.  
  324.                 case inDrag:
  325.                     /* handled by hypercard */
  326.                     break;
  327.                     
  328.                 case inGrow:
  329.                 break;
  330.                     
  331.                 case inContent:
  332.                     if (whichWindow == FrontWindow() ){
  333.                         GetPort( &oldPort );
  334.                         SetPort( ip->eventWindow );
  335.                         
  336.                         SetPort( oldPort );
  337.                     }else
  338.                         SelectWindow( whichWindow );
  339.  
  340.                     pp->passFlag = FALSE;
  341.                     break;
  342.                 
  343.                 default: 
  344.                     break;
  345.             }/* window part */
  346.         break;
  347.         
  348.     case mouseUp:
  349.         break;
  350.                 
  351.     case keyDown:
  352.     case autoKey:    
  353.         /* the command key will be handled by hypercard */
  354.         GetPort( &oldPort );
  355.         SetPort( ip->eventWindow );
  356.         theKey  = ip->event.message & 0xFF;
  357.         
  358.         SetPort( oldPort );
  359.         pp->passFlag = FALSE;
  360.         break;
  361.         
  362.     case activateEvt:
  363.         if ( ip->event.modifiers & activeFlag )
  364.             BEGINXWEDIT( pp, ip->eventWindow );
  365.         else
  366.             ENDXWEDIT( pp, ip->eventWindow );
  367.         break;
  368.         
  369.     case updateEvt:
  370.         /* hypercard converts dialogs to 0x14 kind? */
  371.         if(((WindowPeek)(ip->eventWindow))->windowKind != 0x14) {
  372.             BeginUpdate( ip->eventWindow );
  373.             EndUpdate( ip->eventWindow );
  374.         }
  375.     break;
  376.         
  377.     case app4Evt:
  378.              {
  379.                  unsigned    char    *evtType = &(ip->event.message);
  380.                  
  381.                  switch( *evtType ){
  382.                      case MouseMovedEvt:
  383.                      break;
  384.                      
  385.                      case SuspendResumeEvt:
  386.                 break;
  387.                  }
  388.         }
  389.         break;
  390.  
  391.     /****************************************/
  392.     /*         THE HYPERCARD EVENTS            */
  393.     /****************************************/
  394.     case xOpenEvt:
  395.         SetPort( ip->eventWindow );
  396.         ShowWindow( ip->eventWindow );
  397.         break;
  398.             
  399.     case xCloseEvt:
  400.         HideWindow( ip->eventWindow );
  401.         break;
  402.     
  403.     case xGiveUpEditEvt:
  404.     break;
  405.  
  406.     case xEditUndo:
  407.     break;
  408.         
  409.     case xEditCut:
  410.     break;
  411.         
  412.     case xEditCopy:
  413.     break;
  414.         
  415.     case xEditPaste:
  416.     break;
  417.         
  418.     case xEditClear:
  419.     break;
  420.     
  421.     default:
  422.         GetPort( &oldPort );
  423.         SetPort( ip->eventWindow );
  424.         GetMouse( &hit );
  425.         
  426.         pp->passFlag = FALSE;
  427.         SetPort( oldPort );
  428.     }/* switch theEvent->what */
  429. }
  430.  
  431.  
  432.  
  433.